home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / biog10c.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-04-07  |  4KB  |  132 lines
  1. /* Installation Script for BioGraph */
  2. SIGNAL ON ERROR NAME Fehler
  3.  
  4. SAY " "
  5.  
  6. /* REXXUTIL laden */
  7. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  8. CALL sysloadfuncs
  9.  
  10. /* Abfrage, in welchem Pfad wir sind */
  11. CALL SysFileTree 'BIO*.*', datei, 'FO'
  12. IF datei.0 < 3 THEN
  13. DO
  14.    SAY "BioGraph wurde noch nicht entpackt."
  15.    SAY "Bitte alle Dateien entpacken und nochmals probieren."
  16.    SAY " "
  17.    SAY "You haven't unpacked BioGraph yet."
  18.    SAY "Please unpack all filesand try again."
  19.    EXIT
  20. END
  21.  
  22. /* Den Pfad und die Platte extrahieren */
  23. pfad = FILESPEC("path",datei.1)
  24. disk = FILESPEC("drive",datei.1)
  25. path = OVERLAY(pfad,disk,3)
  26.  
  27. SAY "Installation of BioGraph for OS/2  (c) 1995 Uwe Schlenther Software"
  28. SAY "==================================================================="
  29. SAY " "
  30.  
  31. /* Ansonsten Daten erfragen */
  32. Abfrage:
  33. SAY "Welches Verzeichnis soll verwendet werden ?"
  34. SAY "Which directory shall be used ?"
  35.  
  36. SAY "(z.B. C:\BIOGRAPH)  "
  37. PARSE PULL pfad
  38. IF pfad = "" THEN pfad="C:\BIOGRAPH"
  39. SAY " "
  40. SAY "BioGraph wird im Verzeichnis " pfad " installiert."
  41. SAY "BioGraph will be installed in " pfad
  42. SAY " "
  43. SAY "Geben sie <return> für weiter ein, <K> für Korrektur oder <A> für Abbruch !"
  44. SAY "Press <return> to continue, <K> for corrections or <A> to cancel !"
  45. PULL antwort
  46.  
  47. /* Auswerten */
  48. IF antwort = "A" THEN SIGNAL Abbruch
  49. IF antwort = "K" THEN SIGNAL Abfrage
  50.  
  51. SAY "Thanks...."
  52.  
  53. weiter:
  54. /* Jetzt ggf. das Verzeichnis erzeugen */
  55. rc = SysMkDir(pfad)
  56.  
  57. /* und die dort nötigen Dateien hinverschieben */
  58. INTERPRET "'COPY BIO*.* 'pfad'\*.*'"
  59. INTERPRET "'COPY *.DLL 'pfad'\*.*'"
  60.  
  61. /* Anlegen des Ordners auf der WPS */
  62. SAY " "
  63. SAY "Soll ein Programmobjekt für BioGraph erstellt werden ?"
  64. SAY "Shall we create a program object on your desktop ?"
  65. SAY " "
  66. SAY "Geben sie <J> oder <N> ein !"
  67. SAY "Please enter <J> for Yes or <N> for No !"
  68. PULL antwort
  69.  
  70. /* Auswerten */
  71. IF antwort = "N" THEN SIGNAL Ende
  72. SAY " "
  73. SAY "WPS-Objekte werden erzeugt..."
  74. SAY "WPS-Objects are being created..."
  75.  
  76. /* Den Ordner anlegen */
  77. klasse='WPFolder'
  78. titel='BioGraph'
  79. ort='<WP_DESKTOP>'
  80. param='OBJECTID=<BIO_ORDNER>;'
  81. mode='fail'
  82. rc = SysCreateObject(klasse,titel,ort,param,mode)
  83.  
  84. /* Das Programmobjekt anlegen */
  85. klasse='WPProgram'
  86. titel='BioGraph'
  87. ort='<BIO_ORDNER>'
  88. param='PROGTYPE=PM;EXENAME='pfad'\BIO.EXE;ICONFILE='pfad'\BIO.ICO;STARTUPDIR='pfad';'
  89. mode='fail'
  90. rc = SysCreateObject(klasse,titel,ort,param,mode)
  91.  
  92. /* Das Hilfeobjekt anlegen */
  93. klasse='WPProgram'
  94. titel='Hilfe zu BioGraph'
  95. ort='<BIO_ORDNER>'
  96. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='pfad';PARAMETERS='pfad'\BIO_GER.INF;'
  97. mode='fail'
  98. Location = "<WP_TEMPS>"
  99. Title = "Hilfedatei"
  100. rc = SysCreateObject(klasse,titel,ort,param,mode)
  101.  
  102. klasse='WPProgram'
  103. titel='BioGraph Help'
  104. ort='<BIO_ORDNER>'
  105. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='pfad';PARAMETERS='pfad'\BIO_ENG.INF;'
  106. mode='fail'
  107. Location="<WP_TEMPS>"
  108. Title="HelpFile"
  109. rc=SysCreateObject(klasse,titel,ort,param,mode)
  110.  
  111. /* Ende-Meldung */
  112. Ende:
  113. SAY " "
  114. SAY "BioGraph ist jetzt installiert !"
  115. SAY "BioGraph installation successful !"
  116. EXIT
  117.  
  118. /* Standard-Fehlerhandler */
  119. Fehler:
  120. SAY " "
  121. SAY "Es ist ein Fehler aufgetreten. Bitte versuchen Sie's nochmal !"
  122. SAY "An error has occured. Please try again !"
  123. EXIT
  124.  
  125. /* Abbruch des scripts */
  126. Abbruch:
  127. SAY " "
  128. SAY "Abbruch..."
  129. SAY "User break..."
  130. EXIT
  131.  
  132.